Gigarom 1/Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso/FILES/APP/S-Z/TimeBook2.0.sit/TimeBook 2.0/background_7188.xml

Extensible Markup Language | 1993-03-22 | 54KB | 1,397 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>7188</id>
    <filler1>0</filler1>
    <bitmap>BMAP_5149.pbm</bitmap>
    <cantDelete> <true /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_3169.css" />
    <part>
        <id>88</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>115</left>
            <top>16</top>
            <right>282</right>
            <bottom>38</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>JobInfo</name>
        <script></script>
    </part>
    <part>
        <id>13</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>265</left>
            <top>176</top>
            <right>405</right>
            <bottom>219</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>totalCompareTime</name>
        <script></script>
    </part>
    <part>
        <id>11</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>265</left>
            <top>86</top>
            <right>405</right>
            <bottom>138</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>totalTime</name>
        <script></script>
    </part>
    <part>
        <id>21</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>265</left>
            <top>137</top>
            <right>405</right>
            <bottom>177</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>totalOverTime</name>
        <script></script>
    </part>
    <part>
        <id>22</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>266</left>
            <top>205</top>
            <right>404</right>
            <bottom>237</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>totalCompareOverTime</name>
        <script></script>
    </part>
    <part>
        <id>2</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>8</left>
            <top>77</top>
            <right>340</right>
            <bottom>250</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>recorderBookList</name>
        <script>on mouseUpput the short name of this cd into goCdif fld "day" is not the long date and the value of the clickLine is empty thenenterNewJobelseput word 2 of the clickLine into theNumif the textstyle of item 1 of the clickLine is plain thenrepeat with x = 1 to (the number of items of line theNum of fld "recorderBookList")set the textStyle of item x of line theNum of fld "recorderBookList" to groupend repeatend ifput the clickText into matchTextlistEdit "recorderBookList",matchText,theNum,(fld "day")end ifgo cd goCdend mouseUpon mouseEnterglobal holdRecorderput fld id 2 into holdRecorderend mouseEnteron mouseLeaveif the id of this bg is not 7188 then exit mouseLeaveglobal holdRecorder,saveLockOutif holdRecorder ≠ fld id 2 then put true into saveLockOutend mouseLeaveon enterNewJobglobal versionNumber,commentsOn,autoUpdatelock screenlock messagesput the short name of this cd into goCdgo to stack "TimeClock" && versionNumberput newJobInfo(39) into newJobgo cd goCd of stack "TimeBook" && versionNumberif the number of lines of fld id 2 = 0 thenask "Enter start time for new job." with the short timeelseask "Enter start time for new job." with item 2 of last line of fld id 2end ifif the result is cancel then exit to hyperCardconvert it to short timeif the result is not empty thenanswer "Invalid time."exit to hyperCardend ifput it & "," before newJobif autoUpdate is true thenask "Enter stop time for new job." & return & "TimeBook cannot auto update this entry. Be sure to calculate and save your time sheet " & ¬"as soon as possible." with the short timeelseask "Enter stop time for new job." with the short timeend ifif the result is cancel then exit to hyperCardconvert it to short timeif the result is not empty thenanswer "Invalid time."exit to hyperCardend ifput it into item 2 of newJobgo to stack "TimeClock" && versionNumberput newJobInfo(61) after newJobgo cd goCd of stack "TimeBook" && versionNumberput newJob & return after fld id 2if commentsOn is true thenchangeCom (the number of lines of fld id 2)end ifend enterNewJobfunction newJobInfo whatIdif whatId is 65 thenget showList("(C0) No Comment" & return & fld id whatId,"Enter comment",true,false,"Enter,Cancel",1)elseif whatId is 39 then put "job" into whatTermif whatId is 61 then put "billing category" into whatTermget showList(fld id whatId,"Enter " & whatTerm,true,false,"Enter,Cancel",1)end ifif the result is cancel or line 1 of it is "Cancel" thenpop cdexit to hyperCardend ifif line 1 of it is "Enter" thenif whatId is 39 then put "," & line (line 2 of it) of fld id whatId into changeToif whatId is 61 then put "," & word 1 of line (line 2 of it) of fld id whatId into changeToend ifif changeTo is "changeTo" then return emptyelse return changeToend newJobInfo</script>
    </part>
    <part>
        <id>18</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>325</left>
            <top>64</top>
            <right>351</right>
            <bottom>87</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <true /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>PunchClock3</name>
        <script></script>
    </part>
    <part>
        <id>26</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>285</left>
            <top>35</top>
            <right>396</right>
            <bottom>50</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>NonBilledTotal</name>
        <script></script>
    </part>
    <part>
        <id>27</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>243</left>
            <top>35</top>
            <right>286</right>
            <bottom>50</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>NonBilledCopy</name>
        <script></script>
    </part>
    <part>
        <id>28</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>6</left>
            <top>7</top>
            <right>47</right>
            <bottom>42</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>14933</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Go TimeBook</name>
        <script>on mouseDownset the icon of me to 25827end mouseDownon mouseUpset icon of me to 14933end mouseUpon mouseLeaveif icon of me is 25827 then set icon of me to 14933end mouseLeave</script>
    </part>
    <part>
        <id>36</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>298</left>
            <top>49</top>
            <right>502</right>
            <bottom>258</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>LogicComments</name>
        <script></script>
    </part>
    <part>
        <id>53</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>325</left>
            <top>50</top>
            <right>390</right>
            <bottom>65</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>bold</textStyle>
        <textHeight>12</textHeight>
        <name>Time Book copy</name>
        <script></script>
    </part>
    <part>
        <id>57</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>396</left>
            <top>14</top>
            <right>499</right>
            <bottom>34</bottom>
        </rect>
        <style>transparent</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Do Time Sheet</name>
        <script>on mouseUpglobal versionNumberif "TimeClock" && versionNumber is not in stacksInUse then start using stack "TimeClock" && versionNumberset hilite of bg button "PunchClock3" to truecheckDayList (fld id 2)if hilite of bg button "PunchClock3" is not true thenexit mouseUpend ifget fld "Week"put it into fld "TimeSheetWeek" of cd 1 of bg "TimeSheet"send calculateTimeSheet to bg "TimeSheet"logicMenusend mouseUp</script>
    </part>
    <part>
        <id>58</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>243</left>
            <top>23</top>
            <right>396</right>
            <bottom>38</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Week</name>
        <script></script>
    </part>
    <part>
        <id>60</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>209</left>
            <top>11</top>
            <right>244</right>
            <bottom>38</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>bold</textStyle>
        <textHeight>12</textHeight>
        <name>JobInfo</name>
        <script></script>
    </part>
    <part>
        <id>64</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>48</left>
            <top>11</top>
            <right>78</right>
            <bottom>38</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>19321</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Go Time Sheet</name>
        <script>on mouseDownset icon of me to 18919end mouseDownon mouseUpset icon of me to 19321visual wipe rightgo to bg "timeSheet"end mouseUpon mouseLeaveif icon of me is 18919 then set icon of me to 19321end mouseLeave</script>
    </part>
    <part>
        <id>69</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>8</left>
            <top>64</top>
            <right>199</right>
            <bottom>250</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>14</textHeight>
        <name>recorderBookList</name>
        <script>on mouseUpput the short name of this cd into goCdif fld "day" is not the long date and the value of the clickLine is empty thenenterNewJobelseput the value of the clickLine into matchTextlistEdit 2,matchText,(word 2 of the clickLine),(fld "day")end ifgo cd goCdset cursor to watchupdateFldsend mouseUpon mouseEnterglobal holdRecorderput fld id 2 into holdRecorderend mouseEnteron mouseLeaveif the id of this bg is not 7188 then exit mouseLeaveglobal holdRecorder,saveLockOutif holdRecorder ≠ fld id 2 then put true into saveLockOutend mouseLeave</script>
    </part>
    <part>
        <id>70</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>182</left>
            <top>64</top>
            <right>253</right>
            <bottom>250</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>14</textHeight>
        <name>recorderBookList</name>
        <script>on mouseUpput the short name of this cd into goCdif fld "day" is not the long date and the value of the clickLine is empty thenenterNewJobelseput the value of the clickLine into matchTextlistEdit 2,matchText,(word 2 of the clickLine),(fld "day")end ifgo cd goCdupdateFldsend mouseUpon mouseEnterglobal holdRecorderput fld id 2 into holdRecorderend mouseEnteron mouseLeaveif the id of this bg is not 7188 then exit mouseLeaveglobal holdRecorder,saveLockOutif holdRecorder ≠ fld id 2 then put true into saveLockOutend mouseLeave</script>
    </part>
    <part>
        <id>71</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>236</left>
            <top>64</top>
            <right>307</right>
            <bottom>250</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>14</textHeight>
        <name>recorderBookList</name>
        <script>on mouseUpput the short name of this cd into goCdif fld "day" is not the long date and the value of the clickLine is empty thenenterNewJobelseput the value of the clickLine into matchTextlistEdit 2,matchText,(word 2 of the clickLine),(fld "day")end ifgo cd goCdupdateFldsend mouseUpon mouseEnterglobal holdRecorderput fld id 2 into holdRecorderend mouseEnteron mouseLeaveif the id of this bg is not 7188 then exit mouseLeaveglobal holdRecorder,saveLockOutif holdRecorder ≠ fld id 2 then put true into saveLockOutend mouseLeave</script>
    </part>
    <part>
        <id>72</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>290</left>
            <top>64</top>
            <right>342</right>
            <bottom>250</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>14</textHeight>
        <name>recorderBookList</name>
        <script>on mouseUpput the short name of this cd into goCdif fld "day" is not the long date and the value of the clickLine is empty thenenterNewJobelseput the value of the clickLine into matchTextlistEdit 2,matchText,(word 2 of the clickLine),(fld "day")end ifgo cd goCdupdateFldsend mouseUpon mouseEnterglobal holdRecorderput fld id 2 into holdRecorderend mouseEnteron mouseLeaveif the id of this bg is not 7188 then exit mouseLeaveglobal holdRecorder,saveLockOutif holdRecorder ≠ fld id 2 then put true into saveLockOutend mouseLeave</script>
    </part>
    <part>
        <id>35</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>325</left>
            <top>64</top>
            <right>505</right>
            <bottom>250</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>14</textHeight>
        <name>recorderBookList</name>
        <script>on mouseWithinput theFields() into fieldListif the selectedField is not empty then exit mouseWithinget the scroll of fld id 35if it ≠ the scroll of first item of fieldList thenput the textHeight of fld id 35 into baseLineSizelock screenrepeat with count = 1 to (number of items in fieldList - 1)set scroll of (item count of fieldList) to itend repeatunlock screenend ifend mouseWithinon mouseUpif fld id 35 is empty then exit mouseUpchangeComend mouseUp</script>
    </part>
    <part>
        <id>62</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>51</left>
            <top>151</top>
            <right>469</right>
            <bottom>201</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>HiddenFieldBlock</name>
        <script></script>
    </part>
    <part>
        <id>73</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>8</left>
            <top>50</top>
            <right>183</right>
            <bottom>65</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>bold</textStyle>
        <textHeight>12</textHeight>
        <name>Time Book copy</name>
        <script></script>
    </part>
    <part>
        <id>74</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>182</left>
            <top>50</top>
            <right>237</right>
            <bottom>65</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>bold</textStyle>
        <textHeight>12</textHeight>
        <name>Time Book copy</name>
        <script></script>
    </part>
    <part>
        <id>75</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>236</left>
            <top>50</top>
            <right>291</right>
            <bottom>65</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>bold</textStyle>
        <textHeight>12</textHeight>
        <name>Time Book copy</name>
        <script></script>
    </part>
    <part>
        <id>76</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>290</left>
            <top>50</top>
            <right>326</right>
            <bottom>65</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>bold</textStyle>
        <textHeight>12</textHeight>
        <name>Time Book copy</name>
        <script></script>
    </part>
    <part>
        <id>51</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>491</left>
            <top>49</top>
            <right>505</right>
            <bottom>64</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>16606</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>New Button</name>
        <script>on mouseUpsetIcon Sundayend mouseUp</script>
    </part>
    <part>
        <id>50</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>478</left>
            <top>49</top>
            <right>492</right>
            <bottom>64</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>16606</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>New Button</name>
        <script>on mouseUpsetIcon Saturdayend mouseUp</script>
    </part>
    <part>
        <id>49</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>465</left>
            <top>49</top>
            <right>479</right>
            <bottom>64</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>16607</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>New Button</name>
        <script>on mouseUpsetIcon Fridayend mouseUp</script>
    </part>
    <part>
        <id>48</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>452</left>
            <top>49</top>
            <right>466</right>
            <bottom>64</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>22753</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>New Button</name>
        <script>on mouseUpsetIcon Thursdayend mouseUp</script>
    </part>
    <part>
        <id>47</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>439</left>
            <top>49</top>
            <right>453</right>
            <bottom>64</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>21233</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>New Button</name>
        <script>on mouseUpsetIcon Wednesdayend mouseUp</script>
    </part>
    <part>
        <id>46</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>426</left>
            <top>49</top>
            <right>440</right>
            <bottom>64</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>22753</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>New Button</name>
        <script>on mouseUpsetIcon Tuesdayend mouseUp</script>
    </part>
    <part>
        <id>45</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>413</left>
            <top>49</top>
            <right>427</right>
            <bottom>64</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>22366</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>New Button</name>
        <script>on mouseUpsetIcon Mondayend mouseUp</script>
    </part>
    <part>
        <id>38</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>488</left>
            <top>234</top>
            <right>505</right>
            <bottom>250</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>5656</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseDownput theFields() into fieldListput the textHeight of item 1 of fieldList into baseLineSizeput the number of items in fieldList into numItemsrepeat until the mouse is upget (scroll of fld id 35) + baseLineSizelock screenrepeat with count = 1 to numItemsset scroll of (item count of fieldList) to itend repeatunlock screenend repeatend mouseDown</script>
    </part>
    <part>
        <id>37</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>488</left>
            <top>64</top>
            <right>505</right>
            <bottom>80</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>5655</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseDownput theFields() into fieldListput the textHeight of item 1 of fieldList into baseLineSizeput the number of items in fieldList into numItemsrepeat until the mouse is upget (scroll of fld id 35) - baseLineSizelock screenrepeat with count = 1 to numItemsset scroll of (item count of fieldList) to itend repeatunlock screenend repeatend mouseDown</script>
    </part>
    <part>
        <id>3</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>243</left>
            <top>23</top>
            <right>396</right>
            <bottom>38</bottom>
        </rect>
        <style>opaque</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Day</name>
        <script></script>
    </part>
    <part>
        <id>82</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>392</left>
            <top>49</top>
            <right>404</right>
            <bottom>64</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>17181</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>New Button</name>
        <script>on mouseUpvisual scroll rightgo prev cd of this bgend mouseUp</script>
    </part>
    <part>
        <id>83</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>402</left>
            <top>49</top>
            <right>414</right>
            <bottom>64</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>14302</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>New Button</name>
        <script>on mouseUpvisual scroll leftgo next cd of this bgend mouseUp</script>
    </part>
    <part>
        <id>59</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>243</left>
            <top>11</top>
            <right>396</right>
            <bottom>26</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>empNameNumb</name>
        <script></script>
    </part>
    <part>
        <id>85</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>86</left>
            <top>7</top>
            <right>107</right>
            <bottom>37</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>6079</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Go TimeClock</name>
        <script>on mouseDownset icon of me to 24044end mouseDownon mouseUpset icon of me to 6079goPunchend mouseUpon mouseLeaveif icon of me is 24044 then set icon of me to 6079end mouseLeave</script>
    </part>
    <part>
        <id>89</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>0</left>
            <top>249</top>
            <right>512</right>
            <bottom>264</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name></name>
        <script></script>
    </part>
    <part>
        <id>90</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>0</left>
            <top>249</top>
            <right>512</right>
            <bottom>264</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name></name>
        <script></script>
    </part>
    <content>
        <layer>background</layer>
        <id>27</id>
        <text>Unbilled</text>
    </content>
    <content>
        <layer>background</layer>
        <id>53</id>
        <text>Comments</text>
    </content>
    <content>
        <layer>background</layer>
        <id>59</id>
        <text>Your Name 00</text>
    </content>
    <content>
        <layer>background</layer>
        <id>60</id>
        <text>NameDay</text>
    </content>
    <content>
        <layer>background</layer>
        <id>62</id>
        <text>Organizing TimeBook for a new week. Please stand by.</text>
    </content>
    <content>
        <layer>background</layer>
        <id>73</id>
        <text><span class="style1">ob Name </span><span class="style12">Click on any item to edit</span></text>
    </content>
    <content>
        <layer>background</layer>
        <id>74</id>
        <text>Start</text>
    </content>
    <content>
        <layer>background</layer>
        <id>75</id>
        <text>Stop</text>
    </content>
    <content>
        <layer>background</layer>
        <id>76</id>
        <text>Cat</text>
    </content>
    <content>
        <layer>background</layer>
        <id>88</id>
        <text>TimeBook</text>
    </content>
    <content>
        <layer>background</layer>
        <id>58</id>
        <text>Monday, March 22, 1993</text>
    </content>
    <name>DayRecorder</name>
    <script>-- STACKS: TimeBook, TimeClock, TimeFile-- VERSION:2.0-- ©Copyright 1993 Ronald Ladouceur, All Rights Reserved.-- DESCRIPTION: TimeBook - a fully functional time sheet and time tracking system.-- REQUIREMENTS: HyperCard 2.1 or HyperCard Player-- TimeBook uses XFCNs created in CompileIt! 2.1 ©Copyright 1992 by Heizer Software.-- The source HyperTalk scripts used to create these XFCNs and XCMDs are at the end-- of the background script of the TimeClock stack.-- TimeBook’s TimeClock stack uses an XFCN called popUpMenu() XFCN ©Copyright 1991-- by BungDabba Productions, All Rights Reserved. A popup menu XFCN which-- allows you to specify font and size.-- GLOBALS: commentsOn, autoUpdate, proMenus, punchLockOut,-- clientNumerals, jobNumerals, versionNumber, saveLockOut, holdDayList,-- optionStart, daysEnd, alreadyKnow, lastClickon openCardlock screenif there is a fld id 89 thenput "Shareware - $19.95 per user to: " & ¬"Media Logic, Attn: Ronald Ladouceur, 1520 Central Ave., Albany, NY 12205" into fld id 89end ifif the number of lines of fld id 2 ≠ the number of lines of fld id 69 then updateFldsunlock screen with visual wipe rightend openCardon idleglobal alreadyKnow,punchLockOut,daysEnd,versionNumber,saveLockOutif daysEnd is empty thenput fld "Week" into thisWeekCheckconvert thisWeekCheck to secsif the secs >= thisWeekCheck and the secs <= thisWeekCheck + (60*60*24*7) thenput empty into alreadyKnowput false into punchLockOutelseif alreadyKnow is empty then-- newDayStufflock screengo stack "TimeClock" && versionNumberend ifend ifend ifif saveLockOut is true then disable menuItem "Save/Print" of menu "TimeBook"else enable menuItem "Save/Print" of menu "TimeBook"end idleon listEdit whatFld,matchText,theNum,whatDateput fld id whatFld into holdListif the optionKey is down thenif the value of the clickLine is empty then exit listEditanswer "Are you sure you want to delete this entry for " & item 3 of line theNum of fld id 2 & "?" with "OK" or "Cancel"if it is "OK" thenset cursor to watchdelete line theNum of fld id 2checkEntry holdList,whatFld,whatDateend ifexit listEditend ifif the value of the clickLine is empty thenlock screenlock messagespush cdgoPunchcancelJobkeyJobkeyStarterkeyEnderpop cdexit listEditend ifif matchText is item 1 of line theNum of fld id whatFld thenask "Enter new start time." with item 1 of line theNum of fld id whatFldif the result is cancel or it is empty then exit listEditconvert it to short timeif the result is not empty then exit listEditput it into item 1 of line theNum of fld id whatFldcheckEntry holdList,whatFld,whatDateexit listEditend ifif matchText is item 2 of line theNum of fld id whatFld thenask "Enter new stop time." with item 2 of line theNum of fld id whatFldif the result is cancel or it is empty then exit listEditconvert it to short timeif the result is not empty then exit listEditput it into item 2 of line theNum of fld id whatFldcheckEntry holdList,whatFld,whatDateexit listEditend ifif matchText is item 3 of line theNum of fld id whatFld theneditJob 39,theNum,3,whatFldcheckEntry holdList,whatFld,whatDateexit listEditend ifif matchText is item 4 of line theNum of fld id whatFld theneditJob 61,theNum,4,whatFldcheckEntry holdList,whatFld,whatDateexit listEditend ifend listEditon editJob whatId,whatNum,whatItem,whatFldglobal versionNumberlock screenlock messagespush cdgo stack "TimeClock" && versionNumberif whatId is 39 then put "job" into whatTypeif whatId is 61 then put "billing category" into whatTypeget showList(fld id whatId,"Enter new " & whatType,false,true,"Enter,Cancel",1)if the result is cancel or line 1 of it is "Cancel" thenpop cdexit to hyperCardend ifif line 1 of it is "Enter" thenif whatId is 39 then put line (line 2 of it) of fld id whatId into changeToelse put word 1 of line (line 2 of it) of fld id whatId into changeToend ifpop cdput changeTo into item whatItem of line whatNum of fld id 2unlock screenend editJobon enterNewJobglobal versionNumber,commentsOn,autoUpdatelock screenlock messagesput the short name of this cd into goCdgo to stack "TimeClock" && versionNumberput newJobInfo(39) into newJobgo cd goCd of stack "TimeBook" && versionNumberif newJob is empty then exit enterNewJobif the number of lines of fld id 2 = 0 thenask "Enter start time for new job." with the short timeelseask "Enter start time for new job." with item 2 of last line of fld id 2end ifif the result is cancel then exit to hyperCardconvert it to short timeif the result is not empty thenanswer "Invalid time."exit to hyperCardend ifput it & "," before newJobif autoUpdate is true thenask "Enter stop time for new job." & return & "TimeBook cannot auto update this entry. Be sure to calculate and save your time sheet " & ¬"as soon as possible." with the short timeelseask "Enter stop time for new job." with the short timeend ifif the result is cancel then exit to hyperCardconvert it to short timeif the result is not empty thenanswer "Invalid time."exit to hyperCardend ifput it into item 2 of newJobgo to stack "TimeClock" && versionNumberput newJobInfo(61) after newJobgo cd goCd of stack "TimeBook" && versionNumberif item 4 of newJob is empty then exit enterNewJobput newJob & return after fld id 2if commentsOn is true thenchangeCom (the number of lines of fld id 2)end ifend enterNewJobfunction newJobInfo whatIdif whatId is 39 then put "job" into whatTermif whatId is 61 then put "billing category" into whatTermget showList(fld id whatId,"Enter " & whatTerm,true,false,"Enter,Cancel",1)if the result is cancel or line 1 of it is "Cancel" then-- pop cdexit newJobInfo -- to hyperCardend ifif line 1 of it is "Enter" thenif whatId is 39 then put "," & line (line 2 of it) of fld id whatId into changeToif whatId is 61 then put "," & word 1 of line (line 2 of it) of fld id whatId into changeToend ifif changeTo is "changeTo" then return emptyelse return changeToend newJobInfoon checkEntry oldList,whatFld,whatDateglobal versionNumber,autoUpdateput sortRight(fld id whatFld) into fld id whatFldcheckDayList (fld id whatFld)if whatDate is the long date thenif fld id whatFld is not oldList thenput true into saveLockOutunlock screenput "Revising TimeBook. Please stand by." into line 2 of fld "HiddenFieldBlock"show fld "HiddenFieldBlock"lock screenpush cardif "TimeClock" && versionNumber is not in stacksInUse thenstart using stack "TimeClock" && versionNumberend ifif autoUpdate is true thenshortCalculateTimeSheetshortSaveend ifpop cardhide fld "HiddenFieldBlock"put empty into optionStartend ifend ifend checkEntryon setIcon whatDayput the number of this cd into thisNumunmark all cdsmark cds where whatDay is in fld "day"lock screengo first marked cdif the number of this cd > thisNum then unlock screen with visual scroll leftelse unlock screen with visual scroll rightend setIconon calculateHoursgo to bg "DayRecorder"altMinuteCalcend calculateHourson openCardput fld id 2 into whatJobsshowComments whatJobsend openCardon showComments theseJobsput fld id 36 into theseCommentsrepeat with x = 1 to the number of lines of theseJobsif item 5 of line x of theseJobs is not in theseComments thenif item 5 of line x of theseJobs is "" then put "No Entered Comment" & return after foundCommentselse put "No Comment" & return after foundCommentsnext repeatend ifrepeat with y = 1 to the number of lines of theseCommentsif item 5 of line x of theseJobs = word 1 of line y of theseComments thenput word 2 to (the number of words of line y of theseComments) of line y of theseComments & return after foundCommentsexit repeatend ifend repeatend repeatif foundComments is "foundComments" then put empty into fld id 35else put foundComments into fld id 35end showCommentsfunction theFieldsreturn "fld id 2,fld id 69,fld id 70,fld id 71,fld id 72,fld id 35"end theFieldson changeCom theCommentLIneif theCommentLine is empty then put word 2 of the clickLine into changeCommentelse put theCommentLine into changeCommentget showList("(C0) No Comment" & return & fld "LogicComments","Enter new comment",false,true,"Enter,Cancel,New",1)put it into changeMeif line 1 of changeMe is "New" thencommentIt changeMeput the last line of fld "LogicComments" into changeToif the number of items of line changeComment of fld id 2 = 4 thenput "," & word 1 of changeTo after item 4 of line changeComment of fld id 2elseput word 1 of changeTo into item 5 of line changeComment of fld id 2end ifput word 1 of changeTo into item 5 of line changeComment of fld "recorderBookList"showComments (fld id 2)exit changeComend ifif line 2 of it is 1 then put "(C0) No Comment" into changeToelseput line (line 2 of changeMe - 1.) of fld "LogicComments" into changeToend iflock screenif line 1 of changeMe is "Enter" thenif the number of items of line changeComment of fld id 2 = 4 thenput "," & word 1 of changeTo after item 4 of line changeComment of fld id 2elseput word 1 of changeTo into item 5 of line changeComment of fld id 2end ifput word 1 of changeTo into item 5 of line changeComment of fld "recorderBookList"end ifshowComments (fld id 2)unlock screenend changeCom</script>
</background>